(fn c-identifier-char? (x)
  (| (character<= #\a x #\z)
     (character<= #\A x #\Z)
     (character<= #\0 x #\9)
     (in? x #\_ #\. #\$ #\#)))
